CHARTS

Airline passenger traffic

Marimekko

Photo by Tomas Williams on Unsplash

Photo by Tomas Williams on Unsplash

Sometimes, the world from above seems too beautiful, too wonderful, too distant for human eyes to see….
— Charles A. Lindbergh


Load the data

Projected growth in airline passenger traffic by region

# Create dataset
df = read.csv("archetypes/airline-passenger-traffic/projected-growth-in-airline-passenger-traffic-by-region.csv", header = TRUE)

# Prepare the data
df$xmax <- cumsum(df$RPK)
df$xmin <- df$xmax - df$RPK
df$xlabel <- (df$xmax + df$xmin)/2
df$label <- paste(as.character(df$Growth),"%")
data<-df %>% rename(Regions=Region)
data

Plot the chart

Projected growth in airline passenger traffic by region

theme_opts <- theme(
  text = element_text(family = "inconsolata", size = 16), 
  plot.title = element_text(color = "black", size = 16, face = "bold"),
  plot.subtitle = element_text(color = "black", size = 12),
  plot.caption = element_text(color = "#555555", size = 11),
  plot.background = element_blank(),
  plot.margin = unit(c(0, 0, 1.25, 0), "in"),
  legend.position = "none",
  legend.title = element_blank(),
  axis.text = element_blank(),
  axis.line = element_blank(),
  axis.ticks = element_blank(),
  axis.title = element_blank(),
  panel.grid = element_blank(),
  panel.grid.major = element_blank(),
  panel.grid.minor = element_blank(),
  panel.background=element_rect(fill="white", colour="white"),
  panel.border = element_blank()
)

v1 <- ggplot(data) +
    geom_rect(aes(ymin = 0, ymax = Growth, xmin = xmin, xmax = xmax, fill = Regions), color = "white", alpha = 0.8 ) + 
    geom_text(aes(x = xlabel, y = Growth, label = label, vjust = -1), position = "identity", color = "black", size = 3, family = "inconsolata" ) +
    geom_text(aes(x = xlabel, y = 0.2, label = format(RPK, big.mark = ",", scientific = FALSE), vjust = 0), position = "identity", color = "black", size = 3, family = "inconsolata" ) +
    geom_text(aes(x = max(xlabel), y = 2.0, label = "Estimated\nRPK (B)\nin 2035"), vjust = 0.5, family = "inconsolata") +
    geom_text(aes(x = xlabel, y = 0, label = Regions), hjust = "right", vjust = 1.5, position = "identity", color = "black", size = 3.5, angle = 45, family = "inconsolata" ) +
    geom_hline(yintercept = 4.8, linetype = "dashed") + 
    geom_text(aes(max(xlabel), 4.9, label = "World Traffic - Growth 4.8%"), vjust = 0.0, family = "inconsolata") +
    geom_hline(yintercept = 2.9, linetype = "dashed") + 
    geom_text(aes(max(xlabel), 3.0, label = "World GDP -Growth 2.9%"), vjust = 0.0, family = "inconsolata") +
    scale_fill_brewer(palette = "Spectral") +
    coord_cartesian(clip="off") +
    labs(title = "Projected Annual Growth in Revenue Passenger Kilometers (RPK)", subtitle = "2015-2035 (top 10 regional flows)") +
    theme_bw() +
    theme_opts

girafe(ggobj = v1, width_svg = 16, height_svg = 9,
       options = list(opts_sizing(rescale = TRUE, width = 1.0)))

References

citations for narrative and data sources

  • Narrative and Data Sources: Boeing, Projected growth in airline passenger traffic by region, GO